home *** CD-ROM | disk | FTP | other *** search
/ Leonardo the Inventor / Leonardo The Inventor (93026)(Broderbund)(Riverdeep)(2004).iso / LEOWINMV / SHARED.DIR / 03080_Script_PALETTE FIX < prev    next >
Text File  |  1996-04-01  |  911b  |  33 lines
  1. -- -----------------------------------------------------------
  2. -- Handler setUpFixPal opens the fixPalette xobject and 
  3. -- creates a new instance of it to fix palette flashes.
  4.  
  5. on setUpFixPal
  6.   global fixpal
  7.   
  8.   if (the machineType = 256) then exit
  9.   openxlib "FixPaletteXObj"
  10.   set fixpal=FixPalette(mNew, the stageLeft, the stageTop, the stageRight, the stageTop)
  11. end
  12.  
  13. -- -----------------------------------------------------------
  14. -- Handler disposeFixPal closes the fixPalette xobject and 
  15. -- deletes the instance of it.
  16.  
  17. on disposeFixPal
  18.   global fixpal
  19.   
  20.   if (the machineType = 256) then exit
  21.   if objectP(fixpal) then fixPal(mDispose)
  22.   closexlib "FixPaletteXObj"
  23. end
  24.  
  25. -- -----------------------------------------------------------
  26. -- Handler patchPal fixes palette flashes.
  27.  
  28. on patchpal
  29.   global fixpal
  30.   
  31.   if (the machineType = 256) then exit
  32.   fixpal(mPatchIt)
  33. end